#!/usr/local/bin/perl -w 

use strict;
use Bio::SeqIO;

my $interpro_file = $ARGV[0];

my $io = Bio::SeqIO->new(-format => "interpro", -file => $interpro_file);

while (my $seq = $io->next_seq){
    print $io "\n";
}

exit;
